home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / M2 / WINDOWS.DEF < prev    next >
Text File  |  2000-09-26  |  1KB  |  57 lines
  1. DEFINITION MODULE Windows;
  2.  
  3. (* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)
  4.  
  5. (*
  6.     This module provides a simple implementation of overlapping text
  7.     windows.
  8.  
  9.     The procedures in this module assume that the display is in text mode.
  10.  
  11.     This module installs the procedures Write and Goto from module Display
  12.     in TermBase.
  13. *)
  14.  
  15. FROM SYSTEM IMPORT ADDRESS;
  16.  
  17. TYPE Window;
  18.  
  19. PROCEDURE OpenWindow( VAR w :Window; l1, c1, l2, c2 :CARDINAL;
  20.                       frame :BOOLEAN; header :ARRAY OF CHAR
  21.                     );
  22. (*
  23.     Open a new window with top left corner at l1,c1 and bottom right
  24.     corner at l2,c2.
  25.  
  26.     IF frame THEN the window is framed.
  27.  
  28.     The header string is centered on the top edge of the window.
  29. *)
  30.  
  31. PROCEDURE SelectWindow( w :Window; mustSave :BOOLEAN );
  32. (*
  33.     Make w the current window; w is moved to the top.
  34.  
  35.     mustSave allows for faster window switches when using non overlapping
  36.     windows. If mustSave is FALSE, the contents of the current window is
  37.     not saved, and the contents of the new current window is not restored.
  38. *)
  39.  
  40. PROCEDURE CloseWindow( w :Window );
  41. (*
  42.     close (destroy) window w.
  43. *)
  44.  
  45. PROCEDURE CloseCurWindow;
  46. (*
  47.     close the top window.
  48.  
  49.     The previously current window becomes current.
  50. *)
  51.  
  52. PROCEDURE NewWindowTitle( header :ARRAY OF CHAR );
  53. (*
  54.     display a new window title.
  55. *)
  56.  
  57. END Windows.